home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / acc130 / acc130.asm < prev    next >
Assembly Source File  |  1991-10-18  |  12KB  |  607 lines
  1.  
  2. ; 
  3. ;            ACcess Check  ACC.com               ( MASM 用 ソース )
  4. ;
  5. ;        書式    ACC         ACCを常駐する
  6. ;                       ACC -R      ACCの常駐解除
  7. ;
  8. ;
  9. ;       原作    ACLAMP  .ASM パオパオ(Y.Hirata)さん作を  ディスアセンブル
  10. ;
  11. ;               v1.10   90/12/??    ACLAMPをディスアセンブルしたものにボリュー
  12. ;                                 ムランプ表示機能をつける
  13. ;               v1.20   91/01/10    システム領域への表示をやめる
  14. ;               v1.30    91/09/01    点灯パターンをパラメータ指定にする  
  15. ;
  16.  
  17. .286p
  18.  
  19. code    segment    byte
  20.     assume    cs:code,ds:code 
  21.  
  22. a_lamp    equ    04ech
  23.  
  24. vollamp    MACRO
  25. ;    push    ax
  26. ;    push    dx
  27.  
  28.     mov    ah,al
  29.  
  30.     mov    dx,a_lamp
  31.     in    al,dx        
  32.     and    al,01000000b    ;ミュートかかっているか?
  33.  
  34.     or    al,ah
  35.     out    dx,al
  36.  
  37. ;    pop    dx
  38. ;    pop    ax
  39.     ENDM
  40.  
  41.  
  42.     ORG    002ch 
  43. d_002c    label byte 
  44.  
  45.     ORG    0080h 
  46. d_0080    label byte 
  47.  
  48.     ORG 100h 
  49.  
  50. start: 
  51.     jmp    j_0388 
  52.  
  53.     db    0dh
  54.     db    '     ',0dh,0ah,07h,0dh,0ah
  55.     db    '        '
  56. chkword    db             'ACcess Check'
  57. chk_end    db                         ' V1.21   1991-01-10',0dh,0ah,0dh,0ah
  58.     db    '        Copyright (C) T.Tacasaka & Y.Hirata 1990,1991.'
  59.     db    0dh,0ah,0dh,0ah,1ah
  60.  
  61. w_016d    dw    0fffeh        ; int 93h の割り込みベクタ(オリジナル) 
  62. w_016f    dw    0ffffh        ;       の待機領域
  63.  
  64. w_0171    dw    0fffeh        ; int 40h の割り込みベクタ(オリジナル) 
  65. w_0173    dw    0ffffh         ;    の待機領域
  66.  
  67. w_0175    dw    0000h         ; ランプ表示を消すかのカウンタ
  68. d_0177    db    00h             ; int 93h に重複してはいったかのチェック
  69. d_0178    db    00h        ; int 40h に重複してはいったかのチェック
  70. d_0179    db    01h        ; インジケータ点灯中フラグ
  71.  
  72. ;w_0203    dw    0000h 
  73.          
  74. ;d_0205    db    00h 
  75.  
  76. l_read    db    00000000b
  77. l_write    db    00000000b
  78. l_fd    db    00000000b
  79. l_hd    db    00000000b
  80. l_ram    db    00000000b
  81. l_cd    db    00000000b
  82. l_rom    db    00000000b
  83. l_ic    db    00000000b
  84. l_ext    db    00000000b
  85.  
  86. ;--------------------- int 40h -----------------------------------------
  87. ;
  88. ;        インジケータを消すタイミングの制御
  89. ;
  90. ;        int 40h は インタバルタイマ(らしい)
  91. ;
  92. ;
  93. d_0206:
  94.     PUSH    AX
  95.     PUSH    CX
  96.     PUSH    DX                ;0208 52
  97.     PUSH    BX                ;0209 53
  98.     PUSH    SP                ;020A 54
  99.     PUSH    BP                ;020B 55
  100.     PUSH    SI                ;020C 56
  101.     PUSH    DI                ;020D 57
  102.     PUSH    DS                ;020E 1E
  103.     PUSH    ES                ;020F 06
  104.  
  105.     MOV    BP,SP                ;0210 8B EC bp <- sp
  106.     MOV    AX,CS                ;0212 8C C8 
  107.     MOV    DS,AX                ;0214 8E D8 ds <- cs 
  108.     MOV    ES,AX                ;0216 8E C0 es <- cs
  109.  
  110.     CLI                    ;原作 →不要ではないか?
  111.     CLD                    ;0219 FC
  112.  
  113.     CMP    BYTE PTR d_0178,01h        ;021A 80 3E 78 01 01
  114.         ; ↑ このルーチン 実行中に 再び コールされた場合(実行中フラグ)
  115.     JNZ    j_0223                ;021F 75 02
  116.     JMP    SHORT    j_0275            ;0221 EB 52
  117.         ; すぐに帰る
  118. j_0223:
  119.     mov    byte ptr d_0178 ,01h    ;実行中フラグセット 
  120.     cmp    byte ptr d_0179 ,01h     ;表示中か?
  121.     jz    j_0231             ;表示中
  122.     jmp    short j_0275 
  123.  
  124. j_0231: 
  125.     inc    word ptr w_0175 
  126.     cmp    word ptr w_0175 ,+40h     ;    
  127.     je    j_023e             ; 40h 回目なら消去
  128.     cmp    word ptr w_0175 ,+500h     ; 500h回目以上なら
  129.     jnb    j_big            ; ボリュームランプにもどす
  130.     jmp    j_0275             ; それ以外 すぐにかえる
  131.  
  132. j_023e: 
  133.     mov    al,10001111b        ; すべてのランプ消去 ○○○○○
  134.     vollamp
  135.     jmp    j_0275
  136.  
  137. j_big:
  138.  
  139.     mov    al,00001111b        ;ボリュームランプにもどす
  140.     vollamp
  141.     mov    word ptr w_0175 ,0000h     ; カウンタクリア
  142.     mov    byte ptr d_0179 ,00h    ; 表示中フラグクリア 
  143.  
  144. j_0275: 
  145.     mov    sp,bp 
  146.     pop    es 
  147.     pop    ds 
  148.     pop    di 
  149.     pop    si 
  150.     pop    bp 
  151.     pop    bx 
  152.     pop    bx 
  153.     pop    dx 
  154.     pop    cx 
  155.     pop    ax 
  156.  
  157.     mov    byte ptr cs:d_0178 ,00h        ; 実行中フラグクリア 
  158.     jmp     dword ptr cs:w_0171        ; int 40h (ｵﾘｼﾞﾅﾙ)へ  
  159.  
  160. ;-------------------------- int 93h -------------------------------------
  161.  
  162. d_028c:
  163.     CMP    AH,5        ; もしデータの読み出しなら
  164.     JZ    j_0299        ; 表示ルーチンへ
  165.     CMP    AH,6        ; もしデータの書き込みなら
  166.     JZ    j_0299        ; 表示ルーチンへ
  167.     JMP    j_0383        ; それ以外は そのままオリジナル
  168.  
  169. j_0299:
  170.     push    ax
  171.     push    cx
  172.     push    dx
  173.     push    bx
  174.     push    sp
  175.     push    bp
  176.     push    si
  177.     push    di
  178.     push    ds
  179.     push    es
  180.  
  181.     mov    bp,sp            ; bp <- sp
  182.  
  183.     push    ax            ;
  184.     mov    ax,cs             ;
  185.     mov    ds,ax             ; ds <- cs
  186.     mov    es,ax             ; es <- cs
  187.     pop    ax             ;
  188.  
  189.     cli
  190.     cld
  191.  
  192.     cmp    byte ptr d_0177 ,01h    ; このルーチン実行中でないか
  193.     jnz    j_02b9             ;
  194.     jmp    j_0371             ; 実行中ならすぐに帰る
  195.  
  196. j_02b9:
  197.     mov    byte ptr d_0177 ,01h    ; 実行中フラグon
  198.     mov    cl,00h            ;
  199.     cmp    ah,06h             ; データ書き込み???
  200.     jnz    j_02c8             ;
  201.     jmp    short j_02d0         ;
  202.  
  203. j_02c8:                        ; データ読みこみ
  204.     or    cl,l_read
  205.     jmp    short j_02d6         ;
  206.  
  207. j_02d0:                        ; データ書き込み
  208.     or    cl,l_write
  209.  
  210. j_02d6: 
  211.     cmp    al,42h            ;
  212.     jnz    j_02ea             ;
  213.     or    cl,l_rom
  214.     jmp    j_034a
  215.  
  216. j_02ea:
  217.     cmp    al,40h            ;
  218.     jnz    j_02fe             ;
  219.     or    cl,l_ram
  220.     jmp    j_034a
  221.  
  222. j_02fe: 
  223.     and    al,0f0h
  224.     cmp    al,0c0h
  225.     jnz    j_0314
  226.     or    cl,l_cd     ;○○●○○
  227.     jmp    short j_034a
  228.  
  229. j_0314: 
  230.     cmp    al,20h            ;
  231.     jnz    j_0328
  232.     or    cl,l_fd        ;●○○○○
  233.     jmp    short j_034a
  234.  
  235. j_0328:
  236.     cmp    al,0b0h
  237.     jnz    j_033c             ;
  238.     or    cl,l_hd
  239.     jmp    short j_034a
  240.  
  241. j_033c:
  242.     or    cl,l_ext
  243.  
  244. j_034a:
  245.  
  246.     not    cl        ; alを反転(0で点灯)
  247.     and    cl,10001111b    ;
  248.     mov    al,cl
  249.  
  250.     vollamp
  251.  
  252.     mov    word ptr w_0175 ,0000h ;表示時間カウンタクリア 
  253.     mov    byte ptr d_0179 ,01h   ;表示中カウンタセット
  254.  
  255. j_0371: 
  256.     mov    sp,bp 
  257.     pop    es 
  258.     pop    ds 
  259.     pop    di 
  260.     pop    si 
  261.     pop    bp 
  262.     pop    bx 
  263.     pop    bx 
  264.     pop    dx 
  265.     pop    cx 
  266.     pop    ax 
  267.  
  268.     mov    byte ptr cs:d_0177 ,00h ;実行中フラグクリア
  269.  
  270. j_0383: 
  271.     jmp     dword ptr cs:w_016d   ;オリジナル 93hへ
  272.  
  273. ;------------常駐するのは ここ(らへん)まで--(↑)------------------------------
  274.  
  275. j_0388:                    ;常駐、削除ルーチンエントリ 
  276.  
  277.     mov    cx,d_0539 - d_04cc    ;6dh 文字         
  278.     mov    di,offset d_04cc    ;'アクセスランプ表示～ 
  279.     mov    ah,1eh            ;コンソールに表示 
  280.     int    91h 
  281.  
  282.     mov    si,offset d_0080    ;0080h～ コマンドパラメータ 
  283.          
  284.       inc    si
  285.     cmp    byte ptr cs:[si],0dh
  286.     jnz    j001
  287.     jmp    error            ;パラメータがない
  288.  
  289. j00:    inc    si
  290.     cmp    byte ptr cs:[si],0dh
  291.     jnz    j001
  292.     jmp    j_0451            ;パラメータ終了
  293. j001:
  294.  
  295.     cmp    byte ptr cs:[si],' '    ;空白はパラメータ読みなおし    
  296.     jz    j00
  297.     cmp    byte ptr cs:[si],'-'    ;パラメータ先頭コード
  298.     jz    j01
  299.     cmp    byte ptr cs:[si],'/'    ;
  300.     jz    j01
  301.     jmp    error
  302.     
  303. j01:    inc    si
  304.     or    byte ptr cs:[si],20h    ;大文字→小文字
  305.     cmp    byte ptr cs:[si],'r'
  306.     jnz    j011
  307.         jmp    release
  308. j011:    cmp    byte ptr cs:[si],'f'
  309.     jz    fd_set
  310.     cmp    byte ptr cs:[si],'h'
  311.     jz    hd_set
  312.     cmp    byte ptr cs:[si],'c'
  313.     jz    cd_set
  314.     cmp    byte ptr cs:[si],'a'
  315.     jz    ram_set
  316.     cmp    byte ptr cs:[si],'o'
  317.     jz    rom_set
  318.     cmp    byte ptr cs:[si],'w'
  319.     jz    wri_set
  320.     cmp    byte ptr cs:[si],'i'
  321.     jz    ic_set
  322.     jmp     error
  323.  
  324. fd_set: call    getdec
  325.     cmp    al,10h    
  326.     jbe    jfd0
  327.     jmp    error
  328. jfd0:    mov    l_fd,al
  329.     jmp    j00
  330.     
  331. hd_set: call    getdec
  332.     cmp    al,10h    
  333.     jbe    jhd0
  334.     jmp    error
  335. jhd0:    mov    l_hd,al
  336.     jmp    j00
  337.     
  338. cd_set: call    getdec
  339.     cmp    al,10h    
  340.     jbe    jcd0
  341.     jmp    error
  342. jcd0:    mov    l_cd,al
  343.     jmp    j00
  344.     
  345. ram_set: call    getdec
  346.     cmp    al,10h    
  347.     jbe    jram0
  348.     jmp    error
  349. jram0:    mov    l_ram,al
  350.     jmp    j00
  351.     
  352. rom_set: call    getdec
  353.     cmp    al,10h    
  354.     jbe    jrom0
  355.     jmp    error
  356. jrom0:    mov    l_rom,al
  357.     jmp    j00
  358.     
  359. wri_set:
  360.     call    getdec
  361.     cmp    al,10h    
  362.     jbe    jwri0
  363.     jmp    error
  364. jwri0:    mov    l_write,al
  365.     jmp    j00
  366.     
  367. ic_set: call    getdec
  368.     cmp    al,10h    
  369.     jbe    jic0
  370.     jmp    error
  371. jic0:    mov    l_ic,al
  372.     jmp    j00
  373.     
  374. j_0396: 
  375.     inc    si            ;0080hにはコマンドパラメータの文字数
  376.  
  377.     cmp    byte ptr cs:[si],20h    ;' ' 
  378.     jz    j_0396 
  379.     cmp    byte ptr cs:[si],2fh    ;'/' 
  380.     jz    j_03b2 
  381.     cmp    byte ptr cs:[si],2dh    ;'-' 
  382.     jz    j_03b2 
  383.     cmp    byte ptr cs:[si],0dh    ;0dhはパラメータ列の最終尾のしるし 
  384.     jnz    j_0396
  385.  
  386.     jmp    j_0451            ;
  387.  
  388. j_03b2:
  389.     cmp    byte ptr cs:[si+01h],0dh    ; / - の次が 0dh か? 
  390.     jnz    j_03bc            ; no 
  391.  
  392.     jmp    j_0451            ; yes
  393.  
  394. j_03bc:
  395.     or    byte ptr cs:[si+01h],20h    ;' '大文字→小文字 
  396.     cmp    byte ptr cs:[si+01h],72h    ;'r' 
  397.     jz    release                ;常駐解除ルーチンへ 
  398.  
  399.     jmp    j_0451
  400.  
  401. release:                ;常駐解除 
  402.     mov    ax,3593h        ;int 93h割り込みベクタ読みだし 
  403.     int    21h             ;→ES:BX
  404.  
  405.     mov    cx,chk_end - chkword    ;常駐チェック 
  406.     mov    si,offset chkword    ;ds:si(このプログラム) 
  407.     mov    di,offset chkword     ;es:di(常駐している?このプログラム)
  408.     repz    cmpsb             ;違う文字またはcxまでくりかえす
  409.     jz    j_03e0             ;0bh文字目まで一致
  410.  
  411.     jmp    short j_0441        ;常駐していない 
  412.      
  413. j_03e0: 
  414.     mov    al,00001111b        ;ボリュームランプにもどす
  415.     vollamp
  416.  
  417.     mov    cx,d_0565 - d_054f    ; 
  418.     mov    di,offset d_054f     ;'☆ 解除したよ～ん ☆'
  419.     mov    ah,1eh             ;を表示
  420.     int    91h             ;
  421.  
  422.     lds    dx,dword ptr es:w_0171    ;w_0171～を ds:dxへ  
  423.     mov    ax,2540h         ;int 40h の割り込みベクタ復帰
  424.     int    21h             ;
  425.  
  426.     lds    dx,dword ptr es:w_016d    ;w_016d～を ds:dxへ  
  427.     mov    ax,2593h         ;int 93h の割り込みベクタ復帰
  428.     int    21h 
  429.  
  430.     push    es 
  431.     mov    si,offset d_002c     ;環境のセグメントアドレス
  432.     mov    ax,es:[si]        ;
  433.     mov    es,ax             ;常駐している
  434.     mov    ah,49h            ;メモリブロックの開放 
  435.     int    21h 
  436.     pop    es
  437.  
  438.     mov    ah,49h            ;常駐しているプログラム
  439.     int    21h             ;のメモリブロックの開放
  440.  
  441.     mov    ax,4c00h        ;プロセス終了 ･ リターンコード 0
  442.     int    21h
  443.  
  444.                     ;常駐解除プログラムはここまで
  445.  
  446. error:
  447.     mov    cx,errmsgend - errmsg    ;
  448.     mov    di,offset errmsg     ;'常駐しないよ！'
  449.     mov    ah,1eh             ;の表示
  450.     int    91h            ;
  451.  
  452.     mov    ax,4c00h        ; '常駐しないよ！'
  453.     int    21h             ;表示プログラムここまで
  454. j_0441: 
  455.     mov    cx,d_0589 - errmsg    ;
  456.     mov    di,offset d_0576     ;'常駐しないよ！'
  457.     mov    ah,1eh             ;の表示
  458.     int    91h            ;
  459.  
  460.     mov    ax,4c00h        ; '常駐しないよ！'
  461.     int    21h             ;表示プログラムここまで
  462.  
  463.  
  464. j_0451:                 ;常駐させるルーチン
  465.  
  466.     mov    ax,3540h         ; 40h の割り込みベクタよみだし
  467.     int    21h             ; -> es:bx
  468.  
  469.     mov    cs:w_0171 ,bx        ; w_0171～に 40h割り込みベクタ 
  470.     mov    cs:w_0173 ,es         ; (オリジナル)をセーブ
  471.  
  472.     mov    ax,3593h        ; 93h の割り込みベクタ読み出し 
  473.     int    21h             ; -> es:bx
  474.  
  475.     mov    cs:w_016d ,bx        ; w_0171～に 93h割り込みベクタ  
  476.     mov    cs:w_016f ,es        ; (オリジナル)をセーブ
  477.  
  478.     mov    cx,chk_end - chkword    ; すでに常駐されているか     
  479.     mov    si,offset chkword     ; チェック
  480.     mov    di,offset chkword    ;
  481.     repz    cmpsb            ;
  482.     jnz    j_0497             ;
  483.  
  484.     mov    cx,d_0576 - d_0565    ;0011h    ; すでに常駐している 
  485.     mov    di,offset d_0565     ; '常駐してるよ！' 
  486.     mov    ah,1eh             ; 表示
  487.     int    91h             ;
  488.  
  489.     mov    cx,d_0end - d_0589    ;0032h    ; 
  490.     mov    di,offset d_0589     ; '使用方法～
  491.     mov    ah,1eh             ; 表示
  492.     int    91h             ;
  493.  
  494.     mov    ax,4c00h        ; '常駐してるよ' 
  495.     int    21h             ; 表示プログラムおしまい
  496.  
  497.  
  498. j_0497: 
  499.     mov    cx,d_054f - d_0539    ;0016h    ; 
  500.     mov    di,offset d_0539     ; '★ 常駐するよ～ん ★'
  501.     mov    ah,1eh             ; 表示
  502.     int    91h             ;
  503.  
  504.     mov    cx,d_0end - d_0589    ;0032h    ;     
  505.     mov    di,offset d_0589     ; '使用方法 ～ 
  506.     mov    ah,1eh             ; 表示
  507.     int    91h             ;
  508.  
  509.     mov    dx,offset d_0206    ; 40h のフックアドレスは d_0206
  510.     mov    ax,2540h         ; 割り込みベクタ設定    
  511.     int    21h             ;
  512.  
  513.     mov    dx,offset d_028c    ; 93h のフックアドレスは d_028c 
  514.     mov    ax,2593h         ; 割り込みベクタ設定
  515.     int    21h             ;
  516.  
  517.     mov    dx,offset j_0388    ; dx <- 常駐ｻｲｽﾞ
  518.     add    dx,+0fh         ; dx = dx + 0fh (割った時余り分が
  519.     mov    cl,04h             ;                繰り上がるように)
  520.     shr    dx,cl             ; dx = dx \ 16 
  521.     mov    ax,3100h        ; プログラム常駐終了 ( ﾘﾀｰﾝｺｰﾄﾞ 0 ) 
  522.     int    21h             ; dx = 常駐するﾌﾟﾛｸﾞﾗﾑのﾊﾟﾗｸﾞﾗﾌｻｲｽﾞ
  523.  
  524.  
  525.  
  526. getdec:    ;proc    near            ;パラメータの数値を得る
  527.  
  528.     push    bx
  529.     mov    al,00h
  530. gj00:    
  531.     inc    si
  532.     mov    bl,byte ptr    cs:[si]
  533.     cmp    bl,'0'
  534.     jb    gj01
  535.     cmp    bl,'5'
  536.     jbe    gj10                ;'0'から'5'ならgj10
  537.  
  538. gj01:    cmp    bl,'6'
  539.     jb    gj02
  540.     cmp    bl,'9'
  541.     jbe    gj11                ;'6'から'9'ならgj11
  542.  
  543. gj02:    cmp    bl,'a'
  544.     jb    gj03
  545.     cmp    bl,'f'
  546.     jbe    gj12                ;'a'から'f'ならgj12
  547.  
  548. gj03:    cmp    bl,'A'
  549.     jb    gj04
  550.     cmp    bl,'F'
  551.     jbe    gj13                ;'A'から'F'ならgj13
  552.  
  553. gj04:    cmp     bl,' '
  554.     jz    gj21                ;' 'なら終了
  555.     cmp    bl,0dh
  556.     jz    gj20                ;0dhなら終了
  557. gj05:    mov    al,0ffh
  558.     jmp    gj21                ;それ以外ならエラー(-1)    
  559.     
  560. gj10:    cmp    al,00h
  561.     jz    gj11                ;
  562.     cmp    al,01h
  563.     jnz    gj05
  564.     mov    al,bl
  565.     sub    al,'0'-10            ;
  566.     jmp    gj00
  567.  
  568. gj11:    mov    al,bl
  569.     sub    al,'0'
  570.     jmp    gj00
  571.     
  572. gj12:    mov    al,bl
  573.     sub    al,'a'-10
  574.     jmp    gj00
  575.     
  576. gj13:    mov    al,bl
  577.     sub    al,'A'-10
  578.     jmp    gj00
  579.     
  580. gj20:    dec    si    
  581. gj21:    pop    bx
  582.     ret
  583.             
  584.  
  585.  
  586. d_04cc    db    'アクセスチェック  (C)おくと , パオパオ 1990,1991.',0dh,0ah
  587.     db    '<< Copyright (C) T.takasaka , Y.Hirata 1990,1991 >>'
  588.     db    0dh,0ah,0dh,0ah
  589.     db    'ACcess Check  Version 1.21 '
  590. d_0539    db    ' ★ 常駐するよ～ん ★',0dh,0ah 
  591. d_054f    db    ' ☆ 解除したよ～ん ☆',0dh,0ah
  592. d_0565    db    ' 常駐してるよ！',07h,0dh,0ah
  593. d_0576    db    ' 常駐しないよ！',07h,0dh,0ah
  594. errmsg    db    ' 使い方 ',0dh,0ah
  595.     db    ' ACC -R   :常駐解除 ',0dh,0ah
  596.     db    '     -Hnn :ハードディスク -Fnn:フロッピィディスク',0dh,0ah
  597.     db    '     -Ann :RAMディスク    -Cnn:ＣＤ　ＲＯＭ',0dh,0ah
  598.     db    '     nn→点灯パターン ○1○2○3○4',07h,0dh,0ah
  599. errmsgend:  
  600. d_0589    db    0dh,0ah,'使用方法 ★ ｵﾌﾟｼｮﾝｽｲｯﾁ /r で、常駐解除します。'
  601.     db      0dh,0ah
  602. d_0end    db    02h
  603.  
  604. code    ends 
  605.  
  606.     end    start 
  607.